home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 February / EnigmA AMIGA RUN 15 (1997)(G.R. Edizioni)(IT)[!][issue 1997-02][PLANET CD V].iso / enigma / earcd / utility / utilwb / mrjquote.lha / mrjQuote2.30 / ARexx / mrjQuote.rexx < prev    next >
OS/2 REXX Batch file  |  1996-09-27  |  2KB  |  59 lines
  1. /* mrjQuote ARexx Startup Script
  2.    ©1996 Mark Rigby-Jones for mrjsw
  3.    mark.rigby-jones@keble.oxford.ac.uk <*> http://users.ox.ac.uk/~kebl0206/
  4.  
  5. $VER: mrjQuote.rexx 1.2 (21.09.96)
  6.  
  7.    Use this to call mrjQuote from the CLI. It operates the program via its
  8.    ARexx port, and will load it into memory if it isn't running when the
  9.    script is called. You can also use some other features from the command
  10.    line. For best results, put this script in REXX: and put the following
  11.    alias somewhere handy (eg s:shell-startup, s:ZStart or whatever)
  12.     alias quote "rx mrjQuote"                                               */
  13.  
  14. PortName = "QUOTE"        /* Change this if you've altered it in the prefs  */
  15. FileName = "mrjsw:Quote"  /* Put the full path to mrjQuote in here.         */
  16.  
  17. Parse Arg Arg1 Arg2 .               /* Get any command line arguments       */
  18. ArgU = Upper(Arg1)                  /* Take an upper-case copy of the first */
  19.  
  20. If Arg1 = "?" Then Do                          /* Output usage if requested */
  21.     Say "mrjQuote.rexx options:"
  22.     Say "[ REQ | SIG | OPEN | QUIT ] [<QuoteFile>]"
  23.     Say " REQ  : Display quote in a requester"
  24.     Say " SIG  : Generate your .signature"
  25.     Say " OPEN : Open the GUI preferences window"
  26.     Say " QUIT : Cause mrjQuote to Quit"
  27.     Exit
  28.     End
  29.  
  30. Address "COMMAND"                              /* Send commands to the OS   */
  31.  
  32. If ~Show(P,PortName) Then Do                   /* If mrjQuote isn't loaded: */
  33.     If Upper(Arg1) = "QUIT"                    /* Exit if QUIT was given    */
  34.         Then Exit
  35.     'Run >NIL: "'FileName'" CDITY AREXX QUIET' /* Otherwise, run it         */
  36.     WaitForPort PortName                       /*  and wait for it to load  */
  37.     End
  38.  
  39. Address Value PortName                         /* Send commands to mrjQuote */
  40.  
  41. Select
  42.     When ArgU = "REQ" Then                     /* Pop-up quote              */
  43.        Quote Arg2
  44.     When ArgU = "SIG" Then                     /* Generate .signature       */
  45.         Sig Arg2
  46.     When ArgU = "OPEN" Then                    /* Open the preferences GUI  */
  47.         Open
  48.     When ArgU = "QUIT" Then                    /* Quit mrjQuote             */
  49.         Quit
  50.     Otherwise
  51.         Reply Arg1                             /* Generate a quote          */
  52.         If Open(FileHandle,"T:mrjQuote") Then Do Until EOF(FileHandle)
  53.             Say ReadLn(FileHandle)             /* And print each line       */
  54.             End
  55.         Call Close(FileHandle)
  56. End
  57. Exit
  58.  
  59.